perm filename TICSUP.LSP[206,JMC] blob sn#077896 filedate 1973-12-15 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE PX () (PROG () (SETQ SIDE @X) (RETURN (PLAY))))
C00003 ENDMK
CāŠ—;
(DE PX () (PROG () (SETQ SIDE @X) (RETURN (PLAY))))

(DE PO () (PROG () (SETQ SIDE @O) (RETURN (PLAY))))

(DE PLAY () (PROG ()
(SETQ SLEVEL 0)
(SETQ PV (COND ((EQ SIDE @X) (LINEMAX POS -1000 1000))
	(T (LINEMIN POS -1000 1000))))
(SETQ POS (CONS (CADR PV) POS))
(RECTIFY POS)
(RETURN PV)))

(DE MAKE (M) (PROG ()
(SETQ POS (CONS M POS))
(RECTIFY POS)
(RETURN (PLAY))
))

(DE UNDO (N)